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RAPOr LOSE 
v04-000 


BARBARA AAABRARRAAAARSAAAAAALARALALASASESALERARAS RR ARE RAR RR SARA RE RARE ERAS RSE SS 


COPYRIGHT “ip 1978 bd 4 1982, 1984 B 
T aie Acs Ae CORPORAT TION, MAYNARD. MASSACHUSETTS. 


OFTWARE IS URN SHED UNDER A LICENSE AND MAY BE USED AND cor iee 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE 8 we THE 
Pp 


0 NOTICE, $ TWAR OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO _ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
* 
® 
® 
® 
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® 
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® 
* 
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NCLUS 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
orppokat iti NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 


: Facility: rms32 
: Abstract: 


this module is the highest level control routine 
to perform the $close function. 


Environment: 
star processor running starlet exec. 
Author: L F Laverdure, creation date: 1-MAR-1977 
Modified By: 
v03-033 $HZ0010 Stephen H. Zalewski 04-May-1984 
Do not recreate address space in rm$unmap_gbl because 
the space is now taken directly from PO space. 
v03-032 JEJ0011 JE Johnson 20-Mar-1984 
Include global buffer quota accounting. 
V03-031 JEJ0020 J E Johnson 28-Mar-1984 
Correct multiple problems in RAS270. 
v03-030 RASO270 Ron Schaefer 14-Mar-1984 


Remove the NAM block dependency for the SPL/SCF/DLT on 
$SCLOSE options. Eliminate RMSCLOSE1. 


v03-029 0GB0011 Donald G. Blair 01-Mar-1984 
Change the way the ACP is called as part of the restructuring 
necessary for access mode protected files. 


v03-028 JWT0160 Jim Teague 29-F eb-1984 
Remove calls to RMS$DEALLEFN. 


V03-027 SHZ0009 Stephen H. Zalewski 12-Sep-1983 
Change the sense of a branch so that the NWA DOES get 
deallocated during the close. 


V03-026 $HZ0008 Stephen H. Zalewski 10-Aug-1983 
Set a bit in the GBSB after we have decremented the accessor 
count in the gtobet buffer section (and possibly flushed the 
cache as well) to prevent last chance 
from decrementing the count again in the case where the 
process gets stopped before we have completely cleaned up. 


Y03-025 $HZ20007 Stephen H. Zalewski | ggg 
If last accessor to a global buffer section, then zero 
the global section size, and giobat uffer count fields 
in the lock value block for the section. This is to prevent 
the case where the next accessor takes a lock before we 
are done cleaning up, thus causing this subsequent accessor 
to get incorrect data in the value block. 


SOOSCCSCSCOCOOOOOOOSOOSOSOOSOSOOOOSOSOSOOOSOSOOOOOCOOOOOOOOOSoOoOOoO 


SOOooooo 
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V03-024 KBT10567 Keith B. Thompson 28-Jul-1983 
Check for the NWA pointer not the flag 
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RAS 
) Vv04 


to close the file. 


V03-011 SHZ0004 Stephen H. Zalewski, 10-Sep-1982 17:04 
ceoeee all references to SFD, SIFB and FRB as they no longer 
exist. 


v03-010 KBT0339 Keith B. Thompson 16-Sep-1982 
Always try to deallocate the gbsb (i.e. take it out of unmap) 


V03-009 $HZ0003 Stephen H. Zalewski, 7-Sep-1982 22:24 
Add TEMPORARY code that checks for corruption of GBDs 
in global buffer section. 


Move dequeueing of global buffer section lock so that when 

3a qieset section is upmapped the lock is immediately dequeued. 
This prevents a second process form initializing a new section 
incorrectly. 


=—OODNAMUE WN OOONOULS WN 


Soooooo: 
Soooooo 


oe 


7 
§ ; v03-023 DASO001 David Solomon 20-Jul-1983 
5 ; IFBSV_JNL moved from IFBSB_JNLFLG to IFBS$B_JNLFLG2. 
0 9: v03-022 KPL0003 Peter Lieberwirth 20-Jun-1983 
bb a ; Correct commentary regarding AT journaling of $CLOSE. 
44 8 : V03-021 $HZ0006 Stephen H. Zalewski 20-Jun-1983 
4 F : Add code for cluster global buffers. 
$00 95 : v03-020 KPLO0002 Peter Lieberwirth 31-May-1983 
$88 88 3 Write CLOSE mapping journal entry before buffers are 
000 4 : deallocated. 
000 99: v03-019 KBT0520 Keith B. Thompson 23-May-1983 
000 100; The routine RMSCHKNAMBLK no longer exist and remove 
44 13) : the RMSCLS_CHKNAM hack. 
444 198 : v03-018 KBT0509 Keith B. Thompson 5-May-1983 
8000 Ise ; Use RMSDEALLOCATE_FWA 
0000 106: v03-017 KPLO001 Peter Lieberwirth 29-Apr-1983 
4 + : Always look for IFAB journaling structures to deallocate. 
0000 109; V03-016 JWHO200 Jeffrey W. Horn 22-Mar-1983 
0000 110; Back out JWHO102, SCLOSE now allowed within an active 
0000 111; RU. 
0000 ie ; 
0000 113; V03-015 KBT0457 Keith B. Thompson 10-Jan-1983 
8608 V3 : Deallocate fwa along with ifab. 
0000 116; V03-014 SHZ0005 Stephen H. Zalewski, | 19-Oct-1982 16:32 
0000 117; Remove code that checks for corrupt gbd's in a global 
B00 18 ; buffer section. 
0000 120; V03-013 JWHO104 Jet trey W. Horn 22-Sep-1982 
4 13 : Relocate calls to RMSMAPJNL, RMSDEAJNL to after deaccess. 
6000 123 ; V03-012 JwHO102 Jeffrey W. Horn 22-Sep-1982 
0000 \s ; If the file is in a recovery-unit then don't allow the user 
0 126 : 
ae 
$60 129 : 
000 130; 
009 131 ; 
0 132; 
3 1: 
$00 135 ; 
136 ; 
| 137 ; | 
1 3 
139 ; | 
0 jay: 
141 ; 
| 


RMSOCLOSE DISPATCH FOR CLOSE OPERATION -SEP-1984 01:11: AX/VM 4- 
eee LOSE OPERATI 19-360" 388 9) :41:98 X/VMS Macro V04-00 Page 4 


RMS. SRCIRMSOCLOSE .MAR; 1 (2) v04 


v03-008 $H20002 Stephen H. Zalewski, 11-Sep-1982 15:37 
If stream has pieds buffers, then dequeue the lock it 
al buffer section, and remove its GBSB. 


v03-007 KBT0179 Keith B. Thompson 25~Aug~ 1962 
Reorganize psects and rename entry point to single ‘$' 


had on the glo 


v03-006 KBT0110 Keith B. Thompson 16-Jul-1982 
Deallocate the sfsb at a more appropiate time 


v03-005 TMK0001 Todd M. katz 02-Jul-1982 
Implement the RMS cluster solution for next record poste tenting. 
As the next record context is now kept locaily in the IRAB 
instead of in individual NRP cells, there is no NRP List 
to be returned. 


v03-004 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added S$PRDEF. 


j 
V03-003 JWHO0002 qerrrer W. Horn 19-May-1982 
Add support for journaling; Write out closing mapping entry 
and then call RMSDEAJNL. 
v03-002 $HZ0001 Stephen H. Zalewski, 8-Jun-1982 17:02 
Remove instruction that cleared kernel mode flag after the 
SIFAB was released (moved to RMOSHARE). 
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DISPATCH FOR CLOSE OPERATION 
DECLARATIONS 


uw 
” 
Ss 
vo 
Ss 
z3 
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~-SBTTL DECLARATIONS 


NPAVTNOPR- DAO CIMT ING 


; bucket lock block defs 
; record lock block defintions 


io definitions 
3; psl definitions 


we 
(Se eves on Cod vote ons elee ne cue oy Ae ke ke Gk a ke 
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owt $$ BOOOOu FOCvave jE 
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Equated Symbols: 


; mask for getting to page boundary 
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CGOOCOOCOCOOOOOSOOSOOSOSOSOSOSSOSOSOSSSOSOSOOSOSOSOSOOSOSOOOSooOoOOo 


_FOP*8 
“BKPBITS#8 
= *X1FF ; 
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~SBTTL RMSSCLOSE, SCLOSE Routine 


RMSOCLOSE D1 
v0a-000 Re 


RMSS$SCLOSE = highest level file close routine 


his routine pertoras the highest level $close processing. 
ts functions include: 


+ common ae 
- check for all streams idle, exiting if not 
- force a disconnect for all streams 
4. Fyspateh to organization-dependent code 
5. if the dit fop bit is set and neither spl nor scf is set, 
delete the file 
g. return all bdb's and buffers 
- deaccess the file if accessed 
8. return the asb and nwa (if any), the ifab, and all pages used for 
rms internal structures for this file 
9. zero the ifab table pointer and fab$w_ifi 
10. exit to the user, generating an ast Tf requested 


Calling sequence: 


entered from exec as a result of user's calling sys$close 
(e.g., by using the $close macro). 


Input Parameters: 
ap user's argument List addr 
Implicit Inputs: 


the contents of the fab and possible related user interface 
blocks. 


Output Parameters: 


r0 status code 
ri destroyed 


Implicit Outputs: 
the ifab and all related internal rms structures gre vaporized. 


e 
fab$l_sts and fab$l_stv are output and fab$w_ifi is zeroed if the 
close was successful. 


COOCCoCOCooooooooooooooooooooooooooCoQoQoooooooooooooso Om 


a completion ast is queued if so specified by the user. 
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ooooooo 
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Completion Codes: 


OOoSoSo: 


standard rms 
Side Effects: 
none 
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SENTRY RMSSCLOSE | 
$TSTPT CLOSE 

30 BSBW RMSFSET ; do common set 


up 
; note: does not return on error 


++ 
force a disconnect on all streams 


PUSHL #1 ; status code to stack 
BRB NXTIRAB ; go check if any irabs Linked 


do an effective bsb to the org-specific disconnect 
note: this makes the fab look Like a rab, but is of no consequence 


since there are no rab inputs to the internal disconnect 
and the only outputs are stv and isi (zeroed) 


ASSUME tt STV EQ F 
ASSUME RABSW_ISI EQ FA 
ASSUME RABSC_BLN LE F 3 (necessary for the re-probe on stall) 


must clear the i operation bit to avoid arglist copy to asb, set busy, 
and initialize ppf_image bit correctly 


NXTDISC: 
BIC 


SOOOCOCCOCOCOCOOOOCOCOOOCOOOOSOOOOOCOOSOOOCOOOSOSoSO “Vt 


SOOOCCOCCOCCOCOOCOOoOCSOSOSOOOCOSOOCOSOOOOSOOOOSOOOSOOOSOOOSS OC 
MO COCOCOCOCOUITUM & PB OWD ON SF OUI MOOCOTOT OTC VV VTVU VU VV V VV VV TVD OOOOVOVOOFOOooOooOo m 


fo J 
& 
COOOOQOOOOOSOOOSSOSOOOSOOSOOOSOOOOSOSOOOSOOSOOOOSOOOOOOSOOOOOCOOOSOOOOOSO f- 


5 #<18<IRBSV_ASYNC-BKP>>!<18<IRBSV_PPF_IMAGE-BKP>>,- 
6 IRBSL_BKP cee tae ) 
1 7 SSB aire BS0_6 (R9) 3 say rab busy 
90 1 8 MOVB ines SpOBE CRD) ; set mode into irab 
E1 1 9 BBC er ede F_IMAGE,(R10), 6 branch unless indirect pet 
1 0 SSB FIRBSV PP _ IMAGE , (R9) : say irab accessed indirect 
8B 1 10$: PUSHR #*M<R 3; save mode and irab addr 
oF § PUSHAB B“NXTRIN > re ye pc to stack 
ASE  TYPE=B NRC IFBSB_ORGCASE(R1 
4 DISPLI$T=<RMSDISCONNECT1 ;RMSD 1SCOMMONSUC RMSDISCONNECT3> 
31 5 BRW RMSD I SCOMMONSUC ; handle unknown org. 
BA § NXTRTN: POPR #*A<R7,RO> : Link stitl. an Raw, Mi. irab addr 
: nk $s va 
E1 8 BBC #I1FBSV_PPF IMAGE. (R10), 108 branch unless indirect ppf 
CSB #IRBSV-BUST, (RI) ; say irab not busy anymore 
33 4 9 108: BLBS RO,NXTIRAB : branch if no error 
1) r MOVL RO, (SP) ; replace status code 
ri § ASSUME IFBSL_IRAB_LNK €Q IRBS$L_IRAB_LNK 
4 5 NXTIRAB: 
D0 4 6 MOVL  IRBSL_IRAB_LNK(R9),R9 =; get next irab 
4 8 pteeee 


RMS 
s 


; 7% 
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4C H 
4¢ 6 ; note: fre next irab Link must still be good even though previous irab 
rt: ; s deallocated, since nothing else could have re-used the space. 
4C § Stews 
4C¢ 4 
BF 3 4C 5 BNEQ NXTDISC 3; loop if more irabs 
59 A OD ef § MOVL R10,R9 3; restore ifab address 
1 ie 
081 rt 3 get or of fab options that are input to either open/create or close 
a i 
1269 22 €0 831 rf: BBS #IFBSV_PPF_IMAGE,(R9),10$ ; branch if indirect ppf 
822 ‘3 ASSUME FABSV_RWC+1 EQ FABSV_DMO 
22 4 ASSUME FABSV_DMO+1 EQ FABSV_SPL 
005 48 ASSUME FABS$V_SPL+1 EQ FABSV_SCF 
9033 49 ASSUME FABSV-SCF+1 EQ FABSV_DLT 
-: Oe: ae 0935 2) EXTZV #FABSV_RWC+FOP,#5,(R8),R1 ; get option bits from fab 
005A 2§ ASSUME IFBSV_RWC+1 EQ IFBSV_DMO 
005A 354 ASSUME IFB$V~DMO+1 EQ IFBSV~SPL 
005A 355 ASSUME IFBSV~SPL+1 EQ IFBSV~SCF 
ts $ ASSUME IFBSV_SCF+1 EQ IFBSV_DLT 
50 69 05 ef cr Baer 58 EXTZV #IFBSV_RWC,45,(R9),RO ; get saved ifab copies from Sopen 
50 1 8 OO05F 59 BISB2 R1,R0 3; or them together 
eo @& mH Ft Fe bogs $ INSV RO,#IFBSV_RWC,45,(R9) |; and restore in ifab flags 
0067 66 p++ 
Boe) 65 ; 
Boe ee 3 dispatch to organization-dependent close code 
067 66 : register state for dispatch: 
067 67 ; 
067 68 ; ri impure area address 
067 369; ri0 ifab address 
bes 70 ; r9 ifab address 
67 71 3 r8 fab address 
bes ie 5 (sp) return address 
; 7 73: 4(sp) status code 
67 74; 
067 75 ;-- 
bee 6 : 
67 77; PUSHAB B*CLSDLT ;_return pc to stack 
67 8 3 CASE TYPE=B, SRC=IFB$B rg ? 
67 79 ; DISPLIST=<RMSNULL ,RMSNULC ,RMSCLOSE3> ; pick up correct routine 
of ? 3 TSTL (SP)+ 3 remove return pc for other orgs 
ef § +4 
$ 4: NOTE: Since there is only a special close routine for isam make Life 
67 5; a little simpler. If the above code is ever used the call to 


$$ 
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§ 3 rm$close3 will have to be done through rm3face ince the word 
: branch of the case will not reach the real rm$close 
$5 ; on 
23 Ad 8 91 ef 91 10$ CMPB #IFBSC_IDX,IFBSB_ORGCASE(R9) ; Is this isam 
6 \ 3 BNEQ CLSDLT ; Branch if not 
QOOOOO00'EF 1 $4 JSB RMSCLOSE3 : Do the close 
95 


k 5 
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7 4 
7 p++ 
: a 
4 2 9: ; return here from organization-dependent close routines 
73. 4 gi = 
7 405 ; 
07 404 : gheck for dlt fop bit set 
8 ? 5 : f set and the spl and scf bits are clear, delete the file. 
f ? $i i-- 
4769 2B €1 sr 409 CLSDLT: BBC #IFBSV_DLT,(R9),CLSCU1 ; branch if dlt not speced 
077 411; 
0077 216 3; if this is a network operation, do not process dlt option; it will be 
077 413 ; handled by network code during deaccess. 
Ory as 
69 OD £0 0077 416 BBS #DEVSV_NET, IFBSL_PRIM_DEV(R9),- ; branch if network operation 
43 O7A 417 CLSCU1 
pate 418 
one rh ASSUME IFBSV_SCF EQ IFBSV_SPL+1 
00 69 02 9 ED 007B 421 CMPZV) = MIFBSV_SPL,#2,(R9) ,#0 ; spl and scf both 0? 
C 12 0080 4 ¢ BNEQ CLSCU1 3: branch if not 
69 i E1 Boas ? ? BBC Cea ee tee, PRIA DEVERT? = :; ignore if not disk 
69 18 £0 Ba56 : 2 BBS SOE EY FOR. JFBSL_PRIM_DEV (RD) -= : ignore if mntd foreign 
30 69 22 €0 GOA ? BBS #IFBSV_PPF_IMAGE,(R9) ,CLSCU1 : ignore if indirect ppf 
OO8E 429 ; ; 
i443 430 ; build fib for delete 
QOO8E 431; 
O08E $36 
SA 38: AD O0O8E 433 BLDFIB: MOVL  IFBSL_FWA_PTR(R9),R10  ; get FWA addr 
51 14 AA 00 009 434 MOVL FWASQ” FIB4(R10) ,R1 ; get FIB addr 
05 69 835 84 435 BBS #IFBSO_TMP,(R9) DELETE ranch if no directory entry 
O9A $38 SSB #F IBSVIFINOF ID, FIBSW_ nmc fe (RID ; indicate find via fid 
QO9F 4 ( tid => current file) 
50 0135 8F 3 OO9F 4 8 DELETE: MOVZWL #<IO$_DELETE! 10$M_ DELETES, RO ; set i/o func code 
7E C AL 4 CLRQ -(SP) : p6 = pS = 0 for qio 
~~ Fr . 440 CLRQ -(SP) : + = p3 = 0 for qio 
43 Be A 441 CLRL -(SP) ; p2 = 0 for qio 
FFS3° . AA 226 BSBW RMSFCPFNC 3 Pall acp to on the delete 
0—E 50 ~+€ AD 44 BLBS RO,CLSCU1 : branch if oka 
4 444 RMSERR MKO, (SP) eplace error code 
OC AB OC AD dU 445 MOVL IFB$L_10S(R9), FABSL_ sTv(R8). ° return system error code 
02. «11 A +68 BRB CLSCUT : return to common close 


Ll § 
RMSOCLOSE DISPATCH FOR CLOSE OPERATION 16-SEP-1984 01:11: AX/VMS Macro V04-00 Page 11 
WOL-ob0 RASC LSCU, Cleanup IFAB and Exit RMS -SEP-1984 eed ea RMS. SRCIRMSOCLOSE MAR: 1 ° (7) 
gee : 9 -SBTTL RMSCLSCU, Cleanup IFAB and Exit RMS 
BC 4 ° p++ 
+! ? § 3; RMSCLSCU = clean part of close operation for error paths 
BC 454; entry point to clean up on aborted Sopen or S$create 
pet $22 3 or successful S$erase,$parse or other control routine 
OBC 439 3° 
OBC $28 
OBC 459 RMSCLSCU:: 
50 DD pee 460 PUSHL RO 3 save error code 
ie 
OBE 168 ; close of pndsrectty opened process permanent file. 
OBE 464 ; need merely zero the ifi field. 
OBE 465; 
QOBE 228 
09 69 22 #«2€1 00B 467 CLSCU1: BBC #IFBSV_PPF_IMAGE,(R9),20$ ; branch if not indirect ppf 
02 A8 B84 O00C 468 CLRW FABSW_TFI(R8) 
50 8EDO O0C re 4 POPL RO 3 restore status code 
FF35" 31 00C8 470 BRW RMSEXRMS 3; all set 
00cB 471 
00CcB $f¢ ; 
00CcB 473; cleanup ifab and all associated structures 
00CB 474; 
00cB 475 
11 10 QOCB 476 20$: BSBB RMSCLEANUP ; cleanup ifab and stuff 
03 50 €9 OOCD 477 BLBC RO, EX : branch if cleanup error 
50 8ED0 9009 478 POPL = R 
FF2A* 31 00D 479 CLS_EX: BRW RMSEX_NOSTR ; and do structureless exit 


Mm 5 
RMSOCLOSE DISPATCH FOR CLOSE OPERATION 16-SEP-1984 01:11: AX/VMS Macro V04-00 Pa 1 
vOu-000 RMSRETIFB, Return IFAB but Leave File Op = Epa 1 9be 95:34:98 RMS .SRCIJRMSOCLOSE .MAR; 1 ws (8) 


-SBTTL RMSRETIFB, Return IFAB but Leave File Open 


D 481 
D 4 § 
D d Li 
. : 5 : RMSRETIFB = evaporate internal structures but leave accessed 
D 4 3 : aaah point to leave file open for user but remove all rms 
. ? 3 ; knowledge of the file 
D6 «490 : outputs: 
D8 193 : 0 tat d 
3 r0 = status code 
Be 488 | : 
Boe 494 ;-- 
00D 495 
Bape $36 RMSRETIFB:: 
FA AF 9F OQ0D6 49 PUSHAB B*CLS_EX 3; return address from cleanup 
50 DD 0009 498 PU 3 save status code 
0075 31 OO0DB 499 BRW CLNJNL : only return ifab, etc. 
itd 259 3 by Jumping into cleanup 
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yOL-008 RMSCLEANUP, Cleanup IFAB and Associated g- -SEP-1984 4:51:98 RMS.SRCIRMSOCLOSE.MAR; 1 . (9) 
ODE o4 -SBTTL RMSCLEANUP, Cleanup IFAB and Associated Storage 
DE 5 34+ 
wae 
43 ; RMSCLEANUP = deallocate internal structures 
ODE $8 ; Cleanup the ifab and its associated structures (bdb's, — ) 
DE 10 ; if an access has been done, a deaccess is performed. ony 
BODE 1 3 outstanding channels are deassigned. the ifi entry in the 
ODE 216 ; ifab table is deleted. 
OODE 513; 
Bape ae ; inputs: 
ODE 15 3 
QODE 21§ ; r9 = ifab address 
OODE 1: 3 ri1 = impure area 
OODE 518; 
OODE 519 ; outputs: 
OODE 520; 
OODE 521; r0 = status code 
OODE 5 ¢ 3 r? = caller's access mode 
BOE : ? 3 ap = restored argument List pointer 
OODE 525; (r7,ap are used as inputs to rm$ex_nostr) 
OODE 526 ;-- 
OODE 527; 
OODE 528 
OODE 529 RMSCLEANUP: : 
OODE 530 
OODE 531; 
OODE 23§ 3 preset status to be returned to caller 
OODE 533; 
OODE 534 
01 ODD 443 233 PUSHL #1 3; preset status to return 
01 €1 QOEO 537 BBC #1FB : branch if no journaling or i an 
OC OOA2 C9 OOE2 538 tie SIALFCG2«R9), 20$ =; error turned Journal ing of 
eeeet 16 Q0E6 539 JSB RMSMA 3 write out SCLOSE mapping ++ 
03 50 €8 OOEC 540 BLBS ROT “eo ; branch on success 
6— 50 DO OOEF 541 MOVL RO, (SP) 3; otherwise replace status code 
OOF 226 10$: 
OOF 54 
OOF 544; 
OOF 545 ; return all buffers and bdb's 
OF 248 3 
OF 4 
0148 30 OOF 548 20$: BSBW RMSRELEASALL 
OOF ee? 
Bore 50 ; 
Bor ay 3; deaccess the file 
bors 888 
OFS 554 DEACCESS: 
22 69 5 + OFS 555 BBCC #IFBSV_ACCESSED,(R9),10$ ; branch if file not accessed 
FFO4" 30 OOF9 228 BSBW RMSDEATCESS : “do the deaccess 
03 28 3; are 22 BLBS RO,5$ 3; branch on success 
6— 5 D th 238 MOVL RO, (SP) 3 Save error code | 


B 6 
an sOcL Ose DISPATCH FOR CLOSE OPERATION -SEP=-1984 9} +) 3 AX/VMS Macro V04-00 Page 14 
v04- RMSCLEANUP, Cleanup IFAB and Associated ~RE=19 4 16:24: RMS ..SRCIRMSOCLOSE.MAR; 1 (9) 
1 60 ; 
1 g0 ; if this is a network operation, do not process scf and spl options by 
| 2g i ; rm$closel; these with e handled by network code during deaccess. 
1 64 
15 69 OD €0 199 92 5$: BBS #DEVSV_NET, IFBSL_PRIM_DEV(R9),10$ ; branch if network operation 
168 ¢ ASSUME FABS$C_SEQ EQ 0 
23 Ad = 95s« 0106 8 TSTB {PESO ORGCASE CRY) ; sequential file org? 
10 12 Q109 0 BNEQ : branch if not 
00 69 02 §3 Fe 10 71 CMPZV «= MIFBSV_SPL,#2,(R9),#0 ; spl and scf both 0? 
9 11 ie BEQL ; branch if so 
008 30 011 7 BSBW RMSSPL_SCF ; check for spool or submit 
03 5 E8 gi 74 BLBS . 3; branch on success 
6— 50 00 B18 576 MOVL RO, (SP) ; save error code 
1f 69 14 €0 0118 38 10$: BBS #DEVSV_MBX, IFBSL_PRIM_DEV(R9),CLSMLBX ; branch if mailbox 
25 69 O05 €1 o138 379 BBC #DEV$V_SQD, IFBSL_PRIM_DEV(R9), DEASSIGN ; branch if not magtape 
0123 0; 
0123 25 3 ~=foreign magtape - write end of tape if ifb$v_eof is set 
01 ; 28 3 rewind if rwc (rewind on close) is set 
01 BS 3 
01 584 
4 585 CLSMAGTAP: 
21 69 18 4 1 586 BBC #DEVSV_FOR, IFBSL_PRIM_ DEV(R9), DEASSIGN ; branch if not foreign 
FED6" 30 B15, 587 BSBW RMSWT TAPMARK : write tape marks 
1850 €9 4 ; ee BLBC RO,DEASSIGN_ALT 3 go away if error 
700 #627 OBI 01D 590 BBC #IFBSV_RWC,(R9) ,DEASSIGN ; branch if no rewind 
5A OD 0131 23) PUSHL R10 3 rewind wants ifab in r10 
5A 59 00 0133 3 MOVL R9,R10 3 710 <= ifab 
FEC7" 30 0136 59 BSBW RMSREWIND_MT ; do rewind 
5A 8EDO 0139 594 POPL 3; restore r10 
07 11 #O13C 8 595 BRB DEASSIGN_ALT ; join mainstream 
O13E 596 
Bige 597 ; 
it : 235 3; mail box - write end of file if write access was allowed 
13E— 600 
4 E oR) CLSMLBX: 
06 69 30 et 1 6 § BBC #1FBS$V yarns. (R9) »DEASSIGN ; branch if no write 
FEBB' 30 1° oh BSBW RMSWRITEO ; write end of file 
145 605 DEASSIGN ALT: 
6—€ 50 dO 0145 on6 MOVL RO, (SP) 3 save status 
14 607 
14 on8 H 
14 609 ; deassign i/o channel 
14 610 ; 
14 611 
14 ol¢ DEASSIGN: 
3 oF SDASSGN_S IF B$W_CHNL(R9) 
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v04-0 RMSCLEANUP, Cleanup IFAB and Associated -SEP-1984 16:24:58 CRMS.SRCIRMSOCLOSE.MAR;1 (10 
1 16; 
1 ‘1 ; clean up journaling 
1 19 ° 
1 620 CLNJNL 
000900 ay 18 1 621 B RMSDEAJNL ; clean up journaling 
§ E 1 6 § BLBS RO,RETIFB 3 branch on success 
$ E9 015¢ 6 BLBC = (SP) ,RETIFB ; branch if code already error 
6E dO 136 ? ¢ MOVL RO, (§P) ; otherwise replace status code 
16 626 ; 
1 6 : Return the ifab, sfsb, asb, fwa(s) and nwa if any 
185 59° 
16 630 RETIFB: 
5C 18 Ad 00 016 631 OVL IFBSL_ARGLST(R9) ,AP ; restore arglist address 
57 OA AD «9A_—(O016 63¢ MOVZBL IFBS$B~MODE(R9) ,R? : and caller's mode 
FE93' 30 O16A oo BSBW RMSRLS_SFSB ; clean up sfsb if any 
3C Ad Be 016D oa TSTL {FBSL_AWA_PTR(RO) 3; check for nwa 
03 13 0170 635 BEQL 0$ ; branch if nwa not present 
E8B' 30 B28 636 BSBW NTSNWA_FREE ; deallocate nwa 
54 14 AY 9 17 637 108: MOVL JPBSLASBADOA CRD) .RG i get asb addr 
09 = 179 §=©638 BEQL 0$ ; branch if none 
53 5B 00 0178 639 MOVL R11,R3 : ifab asb came from imp. free space header 
FE7F* 30 O17E 640 BSBW RMSRETBLK ; deallocate asb 
14 Ad 4 0181 641 CLRL IFBSL_ASBADDR(R9) ; clear pointer 
FE79* 30 0184 otg 208: BSBW RMSDEALLOCATE_FWA ; deallocate fwa and related structures 
53 59 7D 0187 64 MOVQ R9,R : ifab addr to right regs for retblk 
FE73" 30 018A G44 BSBW sa RMSRETBLK : deallocate ifab 
018D 646; 
O18 roth : Return the pages used for all internal structures 
18D 649 ° 
5A 08 C2 018D 650 SUBL2 #8,R10 3; get start of page addr 
54 6A D0 019 651 MOVL (R10) ,R4 ; get Ist hole (there must be 
19 $26 3; at least 1 hole for ifab) 
56 64 D0 019 653 408: MOVL (R4) ,R6 ; get next free space hole 
QOO0001F8 8F O08 A& D1 0196 654 CMPL B(R4S #504 ; all holes should now be equal 
196 68 S glean Lik teat 4 dase 8 
: (less list hea page 
6 6|OU? O13 $39 BLSSU ERRBUG ; branch if not 
FESD' 30 OIA 658 BSBW RMSRET1IPAG 3; return it 
4 6 DO OIA 659 MOVL R6,R4 3 get set to return next page 
A 6 01 1A6 660 CMPL R6,R10 3; all done? 
£8 12 O1A9 661 BNEG  40$ : Loop if not 
ha 
1AB 664 ; Zero ifi and ifab table pointer 
is Ge 
FE52° 30 OQ1AB ge BSBW RMSZAPIF I : zero ifi and ifab table entry 
50 BED fe 068 POPL RO ; return status to caller 
0 1B 98 RSB 3 return to caller 
a 
1B 672 ; Attempted to return an ifab-related page having some 


) 


amad 
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VvO04 RASC AEANUES Cleanup IFAB and Associated geen 138 0): 3):98 YAMS SRCIRMS CLOSE .MAR;1 od 18) Tat 
18 73; non-deallocated block(s) in it 
1B5 eo 
18 976 ERRBUG: RMSTBUG FTL$_DEALLERR 
18 7 


E 6 
SE OPERATION 1 
OSE routine for spool/su RMS .SRCIRMSOCLOSE.MAR; 1 


~SBTTL RMSSPL_SCF = SCLOSE routine for spool/submit options 


RMPOFL OSE DISPATCH FOR 
v04- RMSSPL_SCF = 


++ 
; RMSSPL_SCF = specific close code for the SPL and SCF FOP options 


This routine perveras the spl and scf options, and if set (either on 
Sopen/Screate or on $close), sends a message to the job controller to 

ueue the file to the sysSprint or sys$batch queues respectively. 

f both spl and scf are set, scf takes precedence. The dit fop sub-option 
S passed on to the job controller. 


The overall flow of the routine is as follows: 


1. build the dvi, did and fid fields from the fwa onto the stack. 
2. allocate a buffer on the stack to build the item list for the job 


controller. 
3. fill the queue name in the appropriate item; the job controller will 
translate either SYSSPRINT or SYS$BATCH. 
point an item at the dvi, did, fid copy on th stack 
fill in the delete option if required. 
+ send the message to the job controller with a function code of 
sjc$_queue. 


SIDS DDD AAA AAA AAA OA OOonm 
ous 


DBDOOOOO OOOO OCOOOOWMWOWDOMDWODcDcDod~7 wo 


: Calling sequence: 

: E ow  RMSSPL_SCF 

: Input Parameters: 

: r10 ifab address 
: r9 ifab address 
: r8 fab address 
: Implicit Inputs: 


the contents of the ifab (especially ifb$v_spc, scf, and dit) 
the contents of the fwa (especially fwa$q_shrfil and fwa$t_fibbuf) 


; Output Parameters: 


rier? destroyed 
r0 status code 


: Implicit Outputs: 

; fab$l_stv is set to subsidiary error code on an error. 
Completion Codes: 

standard rms, in particular, spl. 

; Side Effects: 

none 


be sJocdecfecdocdecdecdecdocdecducdesfecdecdecdecdecdecdecdecdecdecdecdecdecdecDecDecfesTostosdecEecTesfeclecEesIuclesTosdestesDesleclecleslecloslesleclecleelecleelesiecle<] 
DOOODOODOOOODOOOOOODOOOOOODOODOOOOOODOODOODOODODOODODOODODOOOOOVOOODOOWOOOO 
WE WN MO ONAN E WI SO OOD NAME WN O ODNAU ES WN 0 OONAU EWN OO OONOAUSWR0O0 OF 


COOOOCOOCOOOCOOCOCOOCOOCOOCOCOOOOOCOCOOOCOOCOOOOOOOCOO DOO 


SSN NNN NNN 


WIN WIWIAIPOROPONONONUNNINNND S 3 3 SS SS BOO 


; Note: no need to check that PPF_IMAGE not set since can't get here if so. 


§-§ P-1984 91:31:98 AX/VMS Macro V04-00 Page 
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ow 
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te controller item list is currently 10 longwords 
ong - for three items and terminator 


: Own Storage: 


54 4E 49 52 50 24 53 59 53 SYSPRINT: ASCII /SYSSPRINT/ 
00000009 SYSPRINT_LEN = .-SYSPRINT 
48 43 54 41 42 26 53 59 53 SYSBATCH: ASCII = /SYSSBATCH/ 
00000009 SYSBATCH_LEN = .-SYSBATCH 
0000001¢ ID_SIZE =16+6+6 ; DVI + DID + FID 
RMSSPL_SCF:: 


: Allocate DVI_DID_FID buffer on stack and fill it in. 


SE 1 C2 SUBL2 #<ID_SIZE>,SP 
57 38 A9 OD OVL  IFBSC_FWA PTR(RO),R7 ; get FWA p 
50 0190 ¢7 7D MOV FWASQ-SHRFIL(R7) ,RO : get DVI Seerionien 
6 50 90 MOVB. RO, (SP) 
01 AE OF O00 61 50 2 MOVCS RO,(R1),#0,415,1(SP) 3 copy dvi and fill to 16 bytes 


ASSUME FIBSW_FID+6 EC FIBSW_DID 


MOVC3 #<6+6>,FWAST -F IBBUF +F IBSW_ FID(R7),(R3) 
: “copy d did and fid 

MOVL SP,R2 3 f member addr of dvi_did_fid blk 
3 points to cleaned-off~ SP 


63 OBC? OC 28 
52. SE = 0 


SIDS DS DS DDD DDD DS TTT Be Be EEE EWA OO 


ROOD NAUE WN 2 O ODA UNE WIN $9 ODNA UE WI 3 0 OD NAME WWI O OONOU EWN)" O OOnNO 


: Build the job controller item list 


MMMMMMMMMMMMMS OO OOOOOOOOOOOOOOOWWWWWIIOIWVIwW 


wt_oiciciababubababiubabablaababababababababububabuababababaiababababababaiabaiatababababaiabababababatabadad 
MIPIM IMNIOM PF OOMOMOOOWVIOO PP PPP \ YP NN PH | K— PW NHNUMADAAWAWAIVAIWVIAIMIMIM IV vOOOoowowowowvoo 


SOOO LLL EBLE CLNoNtotorernrrr 


J 
ome 
SOOSOCOCOOOOOCOCOCOOGOCOOCOOOOOOOOOSOOOOCOCOoOoOO 


7 
7 
7 
Se 
7E 7 CLRL (SP) : end-of-list fla 
08 69 B 1 E 7 BBC #1FBSV_OLT,(R9),10$ ; branch if no delete requested 
E F 7 CLRQ -(SP) 3 no retlen or addr 
00180000 8F DD OF 7 PUSHL #SJCS$_DELETE_FILE@16 ; delete flag 
: : : and zero bufflen 
F 3 
. 3; Now, point to the dvi_did_fid block to identify the file 
F e 
7 D4 F 10$: CLRL -(SP) ; no retlen 
5 DD F PUSHL R addr of block 
0027001c BF DD O1F PUSHL #<<SJC$_FILE ~IDENTIF ICATIONAT6?#10_ S1ZE> : item 
and fill"in size of ldeztl tieation 
a 
g 


Rorornore 


Fill in the initial item, which indicates to the job controller that a file is 


| 
make it ASCIC 
| 
| 
| 
| 
| 
| 


RMSOCLOSE DISPATCH FOR 
vou-000 RMSSPL_SCF = 
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3; to be queued to either SYSSPRINT or SYSSBATCH. 


ASSUME SYSPRINT_LEN  €0 SYSBATCH_LEN 
7E D4 CLRL -(SP) ; no retlen 
05 69 2A €0 BBS #IFBSV_SCF,(R9),20$ ; branch if submit command file 
AE AF OF PUSHAL Gg 'srniar ; point to queue name string 
03. =«11 BRB 0 ; do ye Be item 
4 AF OF gps: PUSHAL B“SYSBATCH point to queue na 
00860009 8F ODD $: PUSHL #<<SJC$ ~SUEUEA16>+SYSPRINT. *teW> : indicate Tunctten 
dul in Length of queue name 
51 5E 00 MOVL SP,R1 ; addr of itemlist 


; Call the job controller. 


SSNDJBC_ 


S- 
EFN = #IMPSC_ASYQIOEFN 3 throw-away event flag 
FUNC = #SJCS_ENTER_FILE ; function 
ITMLST = (R1) EF List 

MOVL R3,SP ; clean stack 

BLBS RO,40$ 3 exit on error 

MOVL RO, FABSL_STV(R8) ; save jobctl status 

60s —— SPL ; and report error 


WII 2 SB QOS OOOO 


VONWOYI SF OOWOOOOOOOOO OOO @@Srorsronorry 


MMR 2 OO  HQOOOOOOOOCOCOCOWOOOOO WoO 


M—OODNA VEL WN O ONO UNE WN OOONAOUEW Or 


2.09 00 09 09 09 09 09 09 09 09 09 09 CD CD CD CD CD OD OD O90 C9098 SII II 


CSooooooocoooooooo 
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RMSRELEASALL, Release all BDB's -SEP-19 RMS .SRCIRMSOCLOSE.MAR; 1 2) 
-SBTTL RMSRELEASALL, Release all BNB's 


++ 
RMSRELEASALL = release bdb's and buffers 


Subroutine to release all bdb's and their associated buffers. 
Assumes dirty meriecs will not be found. 
Also return all B6LB' 


D 4 
4 5 
g BE: 
ee 
D 0; 
ee 
i) : : inputs: 
D 4 : rii impure area address 
D 5 : r9 ifab address 
4 gi 3 r8 fab address 
D 38 3 outputs: 
D : ri0 ifab address 
: r0-r estroye 
0230 40 O-r6 d d 
4 ES ie 
: return a uffers an s 
4 HE LL buff d bdb' 
8 i 
D 46° RMSRELEASALL:: 
SA 59 00 D 48 MOVL R9,R10 3 make sure r10 = ifab addr 
56 40 AA +4 40 49 MOVAL IFBSL_B BDB_FLNK(R10),R6 ; get bdb List head 
54 6 OD 44 50 10$: MOVL (R6) ,R4 3 get ist bdb in List 
56 541s 247 851 CMPL RG RO ; Back at list head? 
1€ 13 0 4A 3 BEQL §«6=_—«30$ h if yes - all don 
51 OA AS 01 EO 4C 5 BBS #BDOBSV_DRT eoess. FLes«riy, rORiBUG : Don't expect "o. find dirt. 
AS = =6BSS O25 54 TSTW DBSwW _OSERS(R ; use count nonzero? 
03 12 54 55 BNEQ 0$ : NO, go release bdb 
A4 88 56 56 INCW BOBSW yeenecas ; make it look accessed 
FDA4' 2? rH 208: BSBW RMSRLRNER i: go release it and free buffer. 
025C¢ 38 ASSUME B6DB$B_BID EQ GBPB$B_BID 
8 5¢ 60 ASSUME <BDBSC_BID&1> £0 0 
2f ¢ ASSUME <GBPB$C_B1D&1> EQ 1 
05 08 A4 3 5 $8 BLBS BOBSB_BID(R4), 25$ : br if g gbpb. 
FD9D" 6 64 BSBW RMSRETBDB 3 return the bdb 
DF 11 6 65 BRB 10$ ; keep going, wnt tt all gone. 
FD98" 30 6 $6 25$: BSB RMSRE TGBPB 3 return gbpb 
DA 11 : ° BRB 10$ 3; keep going 
" $3 ASSUME IFBSW_AVGBPB EQ <IFBSW_AVLCL + 2> 
0084 CA D4 6A 71 30$: CLRL IFBS$W_AVLCL(R10) tote att buffers gone. 
2C 6A : EO § BBS #I1FBSO0_NORECLK, (R10) RAE l done if no Locking. 
56 096 ¢ DE 7 MOVAL 1FBSL -BLBFLNK (R10), Ré Eee ise head for BLB's. 
66 D 7 74 40$: MOVL (R6) : Get next t B. 
4 4 D1 027A 875 CMPL  =soRG, fs" ; Back at L st ahead? 
= "% 7D 4 BEQL CHKGB : att done 
2404 OD 7F 7 TSTL pLes L Lock. ID(R4) : This one teri Locked? 
1 2 4 BEQL 4 ; EQL no lock, so ust return it. 
Fo79" 3 4 7 BSBW RMSRLNER1 : Release the lock f trot . 
54 009C CA DO 7 80 MOVL irBSt _BLBBLNK(R10), 3; Recover BLB address. 


RMSOCLOSE 
vOe-000 
FD71" 
E6 
0088 CA 
FD66" 
OD 


6E 
FDSF' 


DISPA 
RMSRE 


TCH F 
LEASA 
F 

1 

9 
3 
& 
9A 
a69¢ 
oeA) 
OBhs 
02A9 


R CLOSE OPERATION 16-SEP-1984 AX/VMS Macro V04-00 Page 21 RM: 
elease all BDB's * -SEP= 71984 93: He 3 YRMS. SRC IRMSOCLOSE .MAR; 1 ’ (92) vO. 
1 45$: BSBW RMSRETBLB ; Return the BLB. 
§ BRB 40$ : Go get next one. 
4 CHKGBL: TSTL IFBSL_GBH_PTR(R10) 3; Are global buffers present? 
5 BEQL RA_EX ; No, we are done. 
§ BSBW RMSRAISE GBS _LOCK : Get EX lock on global section. 
| BSBB RASRELEASE GBL_BUFFERS ; Release and cleanup global buffers. 
8 SBB RMSUNMAP_GBL ; Disassociate from section 
$9 RA_EX: pseu RASRLS ‘CSB. ; Deallocate the GBSB if any (also release || — 
91 4 
3 DRTBUG: RMSTBUG FTLS_RLSDRT ; A dirty buffer has been left 
+ ; behind by someone. 


| $ 6 
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‘ 


++ 

\ RMSRELEASE_GBL_BUFFERS 

A ; This routine decrements the access count for the global buffer section. 

A f the access count goes to zero, then all cached buffers are released by 
Ag dequeuing the system lock for each buffer, and the system file lock is 


; also released. 
A9 As a part of tayo, the system lock on a buffer, we also give back the 
uota used when that lock was first converted. Notice that if this routine 
s ca\ see s part of a SCLOSE operation then there exists a non-closeable 
hole in which we can give back the quota and have the process deleted before 
geque ing the lock. This will have the effect of snarece tne the global 
buffer quota by one. The reverse can occur during conversion to the system 
lock in RMORELEAS. 


Note: This routine assumes that an EX lock has already been taken on the 
global section. 


9 
i 
38 
° 
A : 
905 
A 388 
Dens 308 
A9 909 
O2A9 910 
AQ = 911 
0 Ag 31g 
Ao 91 
Bai 
0 7 318 Inputs: 
§ ~ 218 R10 - Address of ifab. 
§ ~ 2 y Outputs: 
8 Ao «9 ¢ none 
BA it 
02A9 925 RMSRELEASE_GBL_BUFFERS:: 
7E 53 7D O2A9 926 mova -(SP) 3 Save registers. 
54 0088 CA DO O2AC 927 MOVL IFB$L_GBH_PTR(R10),R4_ ; Get address of global section in R4. 
7C AA 00 spl 928 MOVL IFB$L~GBSB_PTR(R10),R3 : Get gbsb address in R3. 

01 + +«€0 Be 929 BBS #GBSBSM WOTACCESSED - 3; If set then access count is aleoady decrem 

07 OB A3 2B 930 BSB$B_FLAGS(R3), 5$ 3 _go check access count (we are in last cha 
1C AS D7 BA 931 DECL GBHSL_OSECNT(R4) ; Decrement accessor count. 

01 88 BD 336 BISB2 #GBSBSM PrreT ca ssee.= : Set bit in GBSB saying accessor count 
0B A3 BF 9 BSse$B F (R3) : has been decremented (for last chance) 
1C AS ODS C1 oe 5$: TSTL GBHSL_O (R4) ; Test accessor count. 

42 12 te 882 BNEQ NE ; Exit if not last accessor. 

53 54 4 C8 339 MOVL R4,R3 3 Move address of section into R3. 
53 $3 C C 938 10$ ADDL2 (R3),R3 : Get address to next GBD element. 
54 3.6CO= cc 3 9 CMPL : Are we back at queue header? 

3% CF 940 BEQL RLS FILE_LOCK : Yes. 90 release system file lock. 
14 A D D1 = 941 TSTL DSL_LOCK_ID(R3) : Is this buffer cached? 

F 1 D4 ae6 BEQL $ 3; No, go to next GBD. 

00000000'°9F 01 58 D6 «94 ADAW! #1,@#RMS$GW_GBLBUFQUO =; Give the buffer back to the quota ctr 
DDB 944 $DEQ_S LkiD = GBDSC FOEK 1DKRS)3 DEQ the system lock on buffer. 
14 Ad 4 EB 945 CLRL GBDSL_LOCK_IDCR ) ; Mark this GBD as gone. 
o9=—siil : 348 BRB 10$ ; Go to next GBD. 

F ace RLS_FILE_LOCK: 
4 rh SDEQ_S LKID = GBHSL_LOCK_ID(R4); SDEQ system file lock. 

4 AA 0 F 1 MOVL IFB$L_GBSB_PTR(R10),R4 ; Get address of GBSB. 

, a A4 De 05 38) CLRL GBSBSL GS_SIZE(R4) ; Zero all fields in lock value 


wma 


53 


34 AG 
8E 


DISPAT 
RMSREL 


se 


ASALL, Rel 


oe 987 


E OPERATION 
ease all BDB's 


CLRW 


5 DONE: MmOva 
RSB 


"SSEp=198e 20:24:98 


GBSBSW_GBC(R4) : block. 


(SP)+,R3 


AX/VMS Macro V04-00 
RMS .SRCJRMSOCLOSE .MAR; 1 


; Restore registers. 


L 
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yor~008 RMSRELEASALL, Release all BDB's ase 95:30:98 LRMS SRCIRMS CLOSE .MAR; 1 . (ft) 
C 59 ;+4 
C 60 ; 
: 61 ; RMSUNMAP_GBL 
C 38 3; This routine deletes the specified address range for the purpose of 
¢ ace 3; un=-mapping from a global section that has been used for i/o buffers. 
: oe8 ; Note: This routine assume an EX lock is already held on the global section. 
OC 968 ; Inputs: 
OC 14 ; 
Be 9 9 ; RO - start address of range. (alt. entry pt.) 
C 971 ; R1_=- end address of range. (alt. entry pt.) 
Be ore ; R10 - ifab address 
8 C 973; 
30C 974 ; Outputs: 
O30C 975; 
030C 976 ; Destroys RO - R2. 
030C 977; 
030C 978 ;-- 
030C 979 RMSUNMAP_GBL:: 
50 0088 CA dO 030C 980 MOVL IFB$SL_GBH_PTR(R10),RO  ; Put address of global section in RO. 
5 0 10A0 C1 Q311 981 ADDL3 GBH$L_GS_SIZE(RO),.RO,R1 ; End addr of sec + 1 
51 D7 0316 ons DECL R1 3: End addr of section. 
0318 98 
0318 984 RMSUNMAP_GBL_ALT:: 
7E 50 7D 0318 985 flova RO, -(SP) : Save range on stack. 
52 5E 00 O31B 986 MOVL ‘ 3; Remember that address. 
O31E 987 SDELTVA_S INADR=(R2) ; Delete the VA. 
50 8E& 7D 0328 988 MOVQ (SP)+, RO ; Return address array. 
05 O32E 989 3; And return. 
O32F 990 
O32F 6991 - END 
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DISPATCH FOR CLOSE OPERATION 


_ALT 


ai af 
== 
VV 
ovo 
22> 
ao 
ar 


ud 
oa 
= 
— 


BLOF I 
DEASSIGN 


BKP 
BLBSL LOCK. 1D 


$$.PSECT_EP 
SSRMSTEST 


RMSOCLOSE 
Symbol table 
SSRMS 


SSRMS 
SSRMS 


RMSOCLOSE 
Symbol table 


DISPATCH FOR CLOSE OPERATION 


SEP=1986 16:24:88 


AX/VMS Macro V04-00 
RMS .SRCIRMSOCL 


Paar ity 


RLS FILE_LOCK 000002F0 R 1 
ekkekeeee x 1 
RMSCLEANUP QOOOOODE RG 1 
RMSCLOSE tkeeeere 8 x 1 
RMSCLSCU QOOO00BC RG 1 
RMSDEACCESS eeeeeeee xX 1 
RMSDEAJNL eeeneere =X 1 
RMSDEALLOCATE FWA eeeneree YX 1 
RM$D 1 SCOMMONSOC eeeeeeee x 1 
RMSDISCONNECT eeeeeeee YX 1 
RSD LSCOMNECTS eeeeeeee 1 
RMSEXRMS ekeeeeee o1 
RMSEX_NOSTR eeeeeere xX 1 
RMSF CPF NC aeeeeeee XX (01 
RMSF SET eeeneeee X01 
roe JNL eeeeeeee XX 01 
ate ey oe LOCK eeeeeeee = X 0] 
RMSREL 0000023D RG 01 
RRSRELEASE OBL _BUF FERS 000002A9 RG 01 
RMSRETIPA teeerere XX 07 
RMSRETBDB. teeeeeee XX 01 
RMSRETBLB eeeneeee XxX 01 
RMSRETBLK eeeneeee XxX 01 
RMSRETGBPB eeeeeree XX 01 
RMSRETIFB 0000006 RG 01 
RMSREWIND_MT keeeeeee = X 01 
RMSRLNER1 eeeeeeee XxX 01 
RMSRLNERR eeereeee = X (01 
RMSRLS_GBSB eeteeeee XX 01 
RMSRLS_SF SB eeereere XX 01 
RMSSPL_SCF 000001CB RG 01 
-GBL 0000030C RG 01 
SUNMAP _GBL_ALT 00000318 RG 0! 
RMSWRITEOF teeeeeee XxX 01 
RMSWT TAPMARK eeeeeree = X (01 
ten ag oh eeerenee XX 01 
RMSSCLOSE = FFFFFFFE RG 01 
RaSSGu GBLBUF QU0 eeeeeeee =X 01 
nase. MRD = 0001C03 
MS$_SPL = 000104 
eyes DeLere FILE = 00000 
SJCS_E NTER_FILE = 0000001 
SJC$ “FILE IDENTIFICATION = 00000027 
SJC$" QUEUE = 00000086 
SYSSBASSGN tereeeee GX 01 
SYSSDELTVA eeereree GX 01 
SYS$DEQ eeeeeeee GX 01 
SYSSSNDJBC eeeeeeer GX 01 
SYSBATCH 000001C2 R 01 
SYSBATCH_LEN = 00000009 
SYSPRINT™ 000001B9 R 01 
SYSPRINT_LEN = 00000009 


TPT$L_CLOSE eeeeeere =X = 01 


RMSOCLOSE DISPATCH FOR CLOSE OPERATION it dt 9144308 AX/VMS Macro V04-00 Page ¢7 
Psect synopsis -SEP-1984 16:24:38 (CRMS.SRCIRMSOCLOSE.MAR;1 (14) 
¢oeeeeceeece weer wnat 
! Psect synopsis ! 
Foweeeeecesoeeeee} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 0000 9p ( Q.) oF ( 9. ; NOPIC USR CON ABS LCL eg po NOEXE NORD NOWRT NOVEC AA 
RMSRMS 000 ( 815. PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 0000 360 ( 3°) d{ }: NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


tescanmanrcecaesaaan eeeeeeeece} 


; Performance indicators : 


Phase Page faults CPU Time Elapsed Time 


Initialization Sarl 00:00:00.9 00:00:00.95 
Sy eam Hh $888 00-2) RBH gs 
ass 2:00:25. :01:00. 
pyaeo} table sort 17% 00:00:03.9 i SF RE 
Symbol table output 21 00: 00:00:33 §0:00:00. 94 
Psect synopsis output 00:00:00. be aT 
Cross-reference output abs BY 88803998 
Assembler run totals 93 00:00:35.36 0:01:21.91 


The working set_Limit was 1950 pages. 

140168 bytes (274 pages) of virtual memory were used to buffer the intermediate c 

There were 140 pages of symbol table space allocated to hold 2678 non-local and 53° tecet symbols. 
991 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

48 pages of virtual memory were used to define 47 macros. 


Macro Library name Macros defined 


"$255$DUA ie ot oes ins MLB; 1 24 
“$255$DUA MLB; 1 $ 
meitt tay yd: IESYSCIB3STARLET. MLB; 2 1 

TOTALS (all libraries) 43 


2890 GETS were required to define 43 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOCLOSE/0BJ=OBJ$:RMSOCLOSE MSRC$:RMSOCLOSE/UPDATE=(ENHS$:RMSOCLOSE) +EXECML$/LIB+LIB$:RMS/LIB 
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